
R version 4.2.2 (2022-10-31 ucrt) -- "Innocent and Trusting"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R是自由软件，不带任何担保。
在某些条件下你可以将其自由散布。
用'license()'或'licence()'来看散布的详细条件。

R是个合作计划，有许多人为之做出了贡献.
用'contributors()'来看合作者的详细情况
用'citation()'会告诉你如何在出版物中正确地引用R或R程序包。

用'demo()'来看一些示范程序，用'help()'来阅读在线帮助文件，或
用'help.start()'通过HTML浏览器来看帮助文件。
用'q()'退出R.

[原来保存的工作空间已还原]

> library(xlsx)
> library(meta)
载入需要的程辑包：metadat
Loading 'meta' package (version 7.0-0).
Type 'help(meta)' for a brief overview.
Readers of 'Meta-Analysis with R (Use R!)' should install
older version of 'meta' package: https://tinyurl.com/dt4y5drs
Warning messages:
1: 程辑包‘meta’是用R版本4.2.3 来建造的 
2: 程辑包‘metadat’是用R版本4.2.3 来建造的 
> metagen <- read.xlsx("review.xlsx",3)
> se <-(metagen $ uci - metagen $ lci)/ (2*1.96)
> lnhr<- log(metagen$ hr)
> metagen <- cbind(metagen,lnhr,se)
> m <- metagen(TE=metagen $ lnhr,seTE=metagen $ se,studlab=paste(metagen $ study,metagen $year,sep="/"),sm="HR",backtransf=TRUE)
> metabias(m,method.bias='linreg',plotit=T,k.min=5)
Linear regression test of funnel plot asymmetry

Test result: t = -0.28, df = 14, p-value = 0.7801
Bias estimate: -0.1382 (SE = 0.4858)

Details:
- multiplicative residual heterogeneity variance (tau^2 = 1.9387)
- predictor: standard error
- weight:    inverse variance
- reference: Egger et al. (1997), BMJ
> 
